CAAIlluminatedFraction_JupiterMagnitudeAA <-
function(r, Delta, i){
.Call("CAAIlluminatedFraction_JupiterMagnitudeAA", r, Delta, i)
}
